home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO015A.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  859b  |  23 lines
  1. 100  REM SET.UP
  2. 110  HOME 
  3. 111  VTAB 10: HTAB 1: PRINT "PROTREE BBS, COPYRIGHT 1985 BY BOB GARTH"
  4. 112  VTAB 11:X = 12: PRINT : HTAB X: PRINT "PROTREE SOFTWARE"
  5. 113  HTAB X +2: PRINT "P.O. BOX 1106"
  6. 114  HTAB X -3: PRINT "WESTMINSTER, CO, 80030"
  7. 120  POKE 34,5: POKE 35,20
  8. 130 D$ =  CHR$(4)
  9. 140  PRINT D$;"BRUN GET.BUF"
  10. 150  PRINT D$;"BLOAD PAGE.3"
  11. 160  PRINT D$;"BRUN AMPERS.1"
  12. 180  PRINT D$;"BLOAD PREFIXS"
  13. 195  POKE 836, PEEK(855)
  14. 199  IF  PEEK(851) < >2  THEN  POKE 853,0
  15. 200  IF  PEEK(851) = 2  THEN  POKE 801,0
  16. 210  IF  PEEK(851) = 2  AND  PEEK(853) = 2  THEN  PRINT D$;"PR#3"
  17. 220 Z$ = "": FOR I = 1 TO 127:Z$ = Z$ +"X": NEXT 
  18. 230  &  STORE Z$: POKE 836, PEEK(855)
  19. 240  POKE 793,0: POKE 769,0: POKE 824,0: POKE 825,0
  20. 245  IF  PEEK(852) = 3  THEN 260
  21. 250  PRINT D$;"RUN LOG"
  22. 260  POKE 836, PEEK(856)
  23. 270  VTAB 12: PRINT : PRINT  CHR$(4);"EXEC APPLE.E.128"